www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/alltopic.asp

    <!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<% '=========================================================
' File: alltopic.asp
' Version:3.0
' Date: 2005-8-19
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 920520.com All rights reserved.
' Web: http://www.920520.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
	dim n,m,h,s
	dim y,z,show
	stats="心情列表"
	h=8 '每行显示个数
	s=40 '每页显示个数
	M=80 '心情个数
	call nav()
	call main()
	call footer()
	call activeonline()
%>
<%sub main()%>
    <table cellpadding=6 cellspacing=1 class=tableborder1 align=center width="750">
    <tr>
    <th id=tabletitlelink>
<% if m>s then %>
<p align="center"><% for Y=1 to (m+s-1)\s %>
 [<a href=alltopic.asp?show=<%=Y%>> 心情列表<%=Y%> </a>]  
<% next 
end if%>
    </th>
    </tr>
<tr>
    <td class=tablebody1>
<table width="100%">
    <tr>
<% 	dim p
	i=0
	p= trim(request("show"))
	if p="" or not isInteger(p) then
	p=1
	end if
	z=s*p

	if z/m>1 then
		z=m
	else
		z=s*p
	end if

	for n=s*p+1-s to z
	i=i+1
%>
      <td align="center" height=50><IMG SRC=images/topicface/<%=(n)%>.gif onclick="insertface('images/topicface/<%=(n)%>.gif')" style="CURSOR: hand"><br><%=(n)%>.gif</td>
<%
	if i=h then
	response.write "</tr><tr>"
	i=0
	end if 
	next
%>
  </table>
    </td>
    </tr></table>
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="31" align="center"> 
      <BUTTON onclick="window.close();">关闭</BUTTON></td>
  </tr>
</table>
<script language="javascript">
function insertface(Topic){
	self.opener.theForm.Topics.value=Topic;
	self.opener.document.images['topicimg'].src=Topic;
}
</script>
<%end sub%>